perm filename OUTFIL.F4[12T,LCS] blob sn#091421 filedate 1975-11-19 generic text, type T, neo UTF8
00100		SUBROUTINE OUTFIL(N)
00200		TYPE 1
00300		ACCEPT 2,N
00400	1	FORMAT(' TYPE OUTPUT FILE NAME  '$)
00500	2	FORMAT(A5)
00600		END